home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_w.plp < prev    next >
Text File  |  1993-11-30  |  924b  |  37 lines
  1. /**********   指定時刻まで待って通信する  v1.04a用   **********/
  2. %WaitTime{
  3.     var ReqHM[10];
  4.     var WaitSec[6];
  5.  
  6.     loop({
  7.         ReqHM:=@input(    {何時何分に起動しますか？．\n}|
  8.                 {  ４桁の数字(hhmm)で返答してください．}|
  9.                 {(hh=00～23,mm=00～59)},,WTIME);
  10.         case(@nochar(ReqHM)=4 || ReqHM={},{Yes},{
  11.             im({No});
  12.         },,{footnote({ ４桁の数字(hhmm)で入力してください});
  13.             im({Yes})
  14.         });
  15.     });
  16.     footnote({});
  17.  
  18.     case(ReqHM={},{Yes},{
  19.     },{No},    {
  20.             %ReqHH    @getchar(ReqHM,1,2);
  21.             %ReqMM    @getchar(ReqHM,3,2);
  22.             %NowTime @daylong;
  23.             %NowHH    @getchar(NowTime,16,2);
  24.             %NowMM    @getchar(NowTime,19,2);
  25.             %NowSS    @getchar(NowTime,22,2);
  26.             WaitSec:=((ReqHH*60+ReqMM)*60)
  27.                 -((NowHH*60+NowMM)*60+NowSS);
  28.             case(ReqHH<NowHH,{Yes},{WaitSec:=WaitSec+24*60*60});
  29.             select({ }|ReqHH|{:}|ReqMM|{ に自動通信を行います},
  30.             WaitSec,    {COND:={Yes};
  31.             },{ 中 止 },    {COND:={No};
  32.             });
  33.     });
  34. };
  35.  
  36. WaitTime;
  37.